1 ' *** OISAC 2 *** Bn -> Bm ***
10 CLEAR:CLS:PRINTTAB(10)"* bn -> bm *":INPUT"bn ";D,"bm ";A,"nbr ";N$:L=LEN(N$)-1
15 IF D=10THEN R=VAL(N$):GOTO40
20 FOR I=0 TO L
30 C$=MID$(N$,I+1,1):IFASC(C$)>64THEN C=ASC(C$)-55 ELSEC=VAL(C$)
35 R=R+C*(D^(L-I)):NEXTI:IFA=10THEN  PRINT R" b10":GOTO 10
40 FORI=1TO10000:H=R MOD(A^I):K=H�(A^(I-1)):IFA<11;F=F+(K*10^(I-1)):GOTO  50
42 IFK<10THEN F$=STR$(K) ELSE F$=CHR$(K+55)
44 R$=F$+R$
50 IFH<>R THEN NEXT I
60 IFA>10THEN PRINTR$" b";A  ELSE PRINT F" b"A
70 GOTO 10